FUNCTION NewGestalt(selector: OSType; gestaltFunction: SelectorFunctionUPP): OSErr;
{$IFC NOT GENERATINGCFM}
INLINE $205F, $201F, $A3AD, $3E80;
{$ENDC}
{$ENDC}
{$IFC FOR_SYSTEM7_AND_SYSTEM8_COOPERATIVE }
{ These functions are built into System 7.5, but not on earlier systems }
FUNCTION NewGestaltValue(selector: OSType; newValue: LONGINT): OSErr;
{$IFC NOT GENERATINGCFM}
INLINE $303C, $0401, $ABF1;
{$ENDC}
FUNCTION ReplaceGestaltValue(selector: OSType; replacementValue: LONGINT): OSErr;
{$IFC NOT GENERATINGCFM}
INLINE $303C, $0402, $ABF1;
{$ENDC}
FUNCTION SetGestaltValue(selector: OSType; newValue: LONGINT): OSErr;
{$IFC NOT GENERATINGCFM}
INLINE $303C, $0404, $ABF1;
{$ENDC}
{$ENDC}
{$IFC FOR_SYSTEM8_COOPERATIVE }
TYPE
GestaltIteratorRef = Ptr;
{$ENDC}
{$IFC FOR_SYSTEM8_COOPERATIVE }
FUNCTION CreateGestaltIterator(VAR theIterator: GestaltIteratorRef): OSStatus; C;
FUNCTION DisposeGestaltIterator(theIterator: GestaltIteratorRef): OSStatus; C;
FUNCTION GetNextGestaltSelectors(theIterator: GestaltIteratorRef; numberToGet: UInt32; VAR gestaltSelectors: OSType; VAR numberGotten: UInt32): OSStatus; C;
FUNCTION DeleteGestalt(selector: OSType): OSErr; C;
{$ENDC}
{$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
FUNCTION DeleteGestaltValue(selector: OSType): OSErr;
{$IFC NOT GENERATINGCFM}
INLINE $303C, $0203, $ABF1;
{$ENDC}
{$ENDC}
{$IFC NOT OLDROUTINELOCATIONS }
{ Environs Equates }
CONST
curSysEnvVers = 2; { Updated to equal latest SysEnvirons version }
TYPE
SysEnvRecPtr = ^SysEnvRec;
SysEnvRec = RECORD
environsVersion: INTEGER;
machineType: INTEGER;
systemVersion: INTEGER;
processor: INTEGER;
hasFPU: BOOLEAN;
hasColorQD: BOOLEAN;
keyBoardType: INTEGER;
atDrvrVersNum: INTEGER;
sysVRefNum: INTEGER;
END;
{$IFC FOR_SYSTEM7_AND_SYSTEM8_DEPRECATED }
FUNCTION SysEnvirons(versionRequested: INTEGER; VAR theWorld: SysEnvRec): OSErr;